Shareware Grab Bag/Shareware Grab Bag.iso/005/tonyray1.arc/PB3.PRG

Text File | 1985-09-01 | 1.6 KB | 96 lines

SET SAFETY OFF
CLEA
SET TALK OFF
SELE SERVICE
STOR .T. TO GO
MFILE_NMBR=SPACE(6)
MPAY=0.00
MTITLE='PAYMENT ENTRIES'
POS=40-LEN(TRIM(MTITLE))/2
MDATE=SPACE(8)
CLEA
SET COLOR TO 7/4
@ 01,POS SAY MTITLE
SET COLOR TO 6/1,7/4,6
SET DELIMITER OFF
@ 5,1 SAY 'ENTER DATE OR 99 TO EXIT : '
@ 6,1 SAY 'ENTER FILE:NMBR   :'
@ 07,1 SAY 'ENTER PAYMENT     :'
@ 4,67 SAY ' -DEFAULTS-'
@ 5,67 SAY ': &MDATE'
@ 6,67 SAY ': &MFILE_NMBR'
@07,67 SAY ':'
DO WHIL GO
@05,29 GET MDATE PICT '99/99/99'
READ
CLEA GETS
@ 05,67 SAY ': &MDATE'
IF SUBSTR(MDATE,1,2)='99'
STOR .F. TO GO
CURR='021'
RETU
ENDI
MGOFILE=.T.
DO WHIL MGOFILE
@ 6,20 GET MFILE_NMBR
READ
CLEA GETS
SELE CURRENT
FIND '&MFILE_NMBR'
IF EOF()
@15,23 SAY CHR(7)+'NO FILE WITH THAT NUMBER-REENTER'
XX=1
DO WHIL XX<35
XX=XX+1
ENDD
@15,00
@06,20
MFILE_NMBR=SPACE (6)
@06,67 SAY ':'
SELE SERVICE
LOOP
ELSE
mnewmemo=trim(substr(clientname,1,18))+' '+trim(substr(reference,1,18))
MGOFILE=.F.
ENDI
SELE SERVICE
ENDD
@06,28
@06,28 say "&mnewmemo"
@ 06,67 SAY ': &MFILE_NMBR'
SELE SERVICE
@ 07,20 GET MPAY
READ
CLEA GETS
@ 07,69 SAY MPAY PICT '@B'
@11,27 SAY MDATE+' - $' GET MPAY PICT '@B'
CLEA GETS
@ 17,27 SAY 'EVERY THING OK Y OR N'
SET CONS OFF
WAIT ' ' TO CONTINUE
SET CONS ON
@ 08,00 CLEAR
IF upper(CONTINUE)<>'Y'
MPAY=0.00
@ 07,20
LOOP
ELSE
SELE SERVICE
APPE BLAN
REPL DATE WITH CTOD(MDATE)
REPL FILE_NMBR WITH MFILE_NMBR
REPL AMOUNT WITH MPAY
REPL KIND WITH 'PAY'
TWO=SPACE(3)
ONE=SPACE(2)
MPAY=0.00
@07,20
@08,20 CLEAR
LOOP
ENDI
SET DELIMITER ON
STOR .F. TO GO
ENDD
CURR='021'
RETU